      ***
      * IDENTIFICACION DEL PROGRAMA
      ***
       IDENTIFICATION DIVISION.
       PROGRAM-ID. ALQUILERES.
       AUTHOR. Federico Caseres. Ezequiel De Luca. Daniel Mantese. Gabriel Ros. Julian DAmbrosio. 
      ***
      * DIVISION DE ENTORNO
      * DEFINO LOS ARCHIVOS QUE VOY A UTILIZAR.
      ***
       ENVIRONMENT DIVISION.
      
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
      *    Archivos Secuenciales     		
           SELECT LISTADO ASSIGN TO DISK "LISTADO.TXT"    
           		ORGANIZATION IS LINE SEQUENTIAL.
           		
      *    Archivos Indexados   
           SELECT ALQUILERES ASSIGN TO DISK "ALQUILERES.DAT" 
                ACCESS MODE IS SEQUENTIAL ORGANIZATION IS INDEXED
           		RECORD KEY IS CLAVE-ALQUILER
           		FILE STATUS IS FS-ALQUILERES.
           		
           SELECT RECHAZOS ASSIGN TO DISK "RECHAZOS.DAT"   	
                ACCESS MODE IS RANDOM ORGANIZATION IS INDEXED
                RECORD KEY IS CLAVE-RECHAZO
                FILE STATUS IS FS-RECHAZOS.
                  		
           SELECT CHOFERES ASSIGN TO DISK "CHOFERES.DAT"
           		ACCESS MODE IS DYNAMIC ORGANIZATION IS INDEXED
           		RECORD KEY IS CLAVE-CHOFER
           		FILE STATUS IS FS-CHOFERES.
           		
           SELECT CLIENTES ASSIGN TO DISK "CLIENTES.DAT"
           		ACCESS MODE IS RANDOM ORGANIZATION IS INDEXED
           		ALTERNATE RECORD KEY IS CLAVE-CLIENTE-ALT
           		RECORD KEY IS CLAVE-CLIENTE-PRI
           		FILE STATUS IS FS-CLIENTES.
           		
      *    Archivos de ordenamiento
           SELECT ARCH-ALQ-ORD.      
      ***
      * DIVISION DE DATOS
      ***
       DATA DIVISION.
       FILE SECTION.
       FD ALQUILERES LABEL RECORD IS STANDARD.
       01 REG-ALQUILER.
           03 CLAVE-ALQUILER.
      	       05 ALQ-PATENTE PIC X(6).
               05 ALQ-FECHA   PIC 9(8).
           03 ALQ-TIPO-DOC PIC X.
           03 ALQ-NRO-DOC  PIC X(20).
           03 ALQ-IMPORTE PIC 9(4)V99.
           03 ALQ-CHOFER PIC X(7).
           03 ALQ-ESTADO PIC X.
      
       FD RECHAZOS LABEL RECORD IS STANDARD.
       01 REG-RECHAZO.
       	   03 CLAVE-RECHAZO.
       	       05 RECH-PATENTE PIC X(6).
       	       05 RECH-FECHA PIC 9(8).
       	   03 RECH-SOL-TIPO-DOC PIC X.
       	   03 RECH-NRO-DOC PIC X(20).
       	   03 RECH-IMPORTE PIC 9(4)V99.
       	   
       FD CHOFERES LABEL RECORD IS STANDARD.
       01 REG-CHOFER.
           03 CLAVE-CHOFER.
               05 CHOF-NRO-LEGAJO PIC X(7).
               05 CHOF-FECHA-DESDE PIC 9(8).
           03 CHOF-FECHA-HASTA PIC 9(8).
           03 CHOF-TURNO PIC X.
           
       FD CLIENTES LABEL RECORD IS STANDARD.
       01 REG-CLIENTE.
           03 CLAVE-CLIENTE-PRI.
               05 CLI-NUMERO PIC X(8).
           03 CLI-FEC-ALTA PIC 9(8).
           03 CLI-TELEFONO PIC X(20).
           03 CLI-DIRECCION PIC X(30).
           03 CLAVE-CLIENTE-ALT.
               05 CLI-DOCUMENTO PIC X(20).
            
       FD LISTADO LABEL RECORD IS STANDARD.
       01 REG-LISTADO.
           03 LIST-LINEA PIC X(80).
       
       SD ARCH-ALQ-ORD.
       01 REG-ALQ-ORD.
           03 ALQ-ORD-FECHA     PIC 9(8).
           03 ALQ-ORD-CHOFER    PIC X(7).
           03 ALQ-ORD-TIPO-DOC  PIC X.
           03 ALQ-ORD-NRO-DOC   PIC X(20).
           03 ALQ-ORD-DIRECCION PIC X(30).
           03 ALQ-ORD-IMPORTE   PIC 9(4)V99.
		   
	   01  R-LIST PIC X(80).		
	   01  CONTADORES.
           03  CN-LINEAS        PIC 9(2) VALUE 0.
           03  CN-PAGINAS       PIC 9(1) VALUE 0.
		   03  IMP-TOTAL        PIC 9(4)V99 VALUE 0.
	    
	   
	   
       WORKING-STORAGE SECTION. 
       
       01  IMP-POR-CHOF         PIC 9(4)V99 VALUE 0.
	   
	   01  IMP-POR-FECH         PIC 9(4)V99 VALUE 0.
	   
	   01  IMP-POR-TOT         PIC 9(4)V99 VALUE 0.
	   
	   01 FS-ALQUILERES PIC X(2). 
       01 FS-RECHAZOS   PIC X(2).
       01 FS-CHOFERES   PIC X(2).
       01 FS-CLIENTES   PIC X(2).
                
       01 EOF-ALQUILERES PIC X VALUE "N".
       01 EOF-CHOFERES   PIC X VALUE "N".
       01 EOF-CLIENTES   PIC X VALUE "N".
       01 EOF-ALQ-ORD    PIC X VALUE "N".
       
       01 APROBADO PIC X VALUE "N".
       01 CHOFER-DISPONIBLE PIC X VALUE "N".
	   01 IMPRIMIR-CHOFER PIC X VALUE "S".
        
       01 WS-CLIENTE.
           03 WS-CLIENTE-NRO PIC X(8).           
           03 WS-CLIENTE-FEC-ALTA PIC 9(8).
           03 WS-CLIENTE-TELEFONO PIC X(20).
           03 WS-CLIENTE-DIRECCION PIC X(30).
		   03 WS-CLIENTE-DOC PIC X(20).
       
       01 PARAMETRO-CLIENTE.
           03 PARAM-OP PIC X(1).
           03 PARAM-CLAVES-CLIENTE.
              05 PARAM-NUMERO-CLIENTE PIC X(8).
              05 PARAM-DOCUMENTO-CLIENTE PIC X(20).
           03 RESULTADO.
              05 RESULTADO-CLI-NRO PIC X(8).             
              05 RESULTADO-CLI-FEC-ALTA PIC 9(8).
              05 RESULTADO-CLI-TELEFONO PIC X(20).
              05 RESULTADO-CLI-DIRECCION PIC X(30).
			  05 RESULTADO-CLI-DOC PIC X(20).
      
       01 L-FECHA-HOJA.
           03  FILLER                         PIC X(1) VALUE SPACES.
           03  FILLER                         PIC X(7) VALUE "Fecha: ".
           03  L-DIA-FH                       PIC 9(2).
           03  FILLER                         PIC X(1) VALUE "/".
           03  L-MES-FH                       PIC 9(2).
           03  FILLER                         PIC X(3) VALUE "/20".
           03  L-ANIO-FH                      PIC 9(2).
           03  FILLER                         PIC X(36) VALUE SPACES.
           03  FILLER                         PIC X(6) VALUE "Hoja: ".
		   03  L-NRO-HOJA                     PIC X(3).
       
       01  L-DESCRIPCION.
           03  FILLER                         PIC X(10) VALUE SPACES.
           03  FILLER                         PIC X(50)
               VALUE "     Listado de alquileres aprobados".
       
       01 L-FECHA-ALQ.
           03  FILLER                         PIC X(1) VALUE SPACES.
           03  FILLER                         PIC X(8) VALUE "Fecha: ".
           03  L-ALQ-DIA-FH                   PIC 9(2).
           03  FILLER                         PIC X(1) VALUE "/".
           03  L-ALQ-MES-FH                   PIC 9(2).
           03  FILLER                         PIC X(1) VALUE "/".
           03  L-ALQ-ANIO-FH                  PIC 9(4).
       
       01 L-CHOF-TURN.
           03  FILLER                         PIC X(1) VALUE SPACES.
           03  FILLER                         PIC X(8) VALUE "Chofer: ".
		   03  L-CHOFER                       PIC X(7).
           03  FILLER                         PIC X(8) VALUE " Turno: ".
           03  L-TURNO                        PIC X(7).
       
       01 L-TIT-LIST.
           03  FILLER                         PIC X(1) VALUE SPACES.
           03  FILLER                         PIC X(51)
               VALUE "     Cliente    Tipo-Doc    Nro-Doc    Direccion".
       
         01  L-LINEA.
           03  FILLER                         PIC X(40)
               VALUE "----------------------------------------".
           03  FILLER                         PIC X(30)
               VALUE "------------------------------".
               
       01 L-DETALLE.
           03  FILLER                         PIC X(5) VALUE SPACES.
           03  L-CLIENTE                      PIC X(8).
           03  FILLER                         PIC X(7) VALUE SPACES.
           03  L-TIPO-DOC                     PIC X.
           03  FILLER                         PIC X(7) VALUE SPACES.
           03  L-NRO-DOC                      PIC X(10).
           03  FILLER                         PIC X(2) VALUE SPACES.
           03  L-DIREC                        PIC X(30).
       
       01 L-IMPORTE-CHOFER.
           03  FILLER                         PIC X(1) VALUE SPACES.
           03  FILLER                         PIC X(21)
               VALUE "Totales por Chofer: ".
           03  L-IMP-CHO-TOTAL                PIC $ZZZ9,00.
           
       01 L-IMPORTE-FECHA.
           03  FILLER                         PIC X(1) VALUE SPACES.
           03  FILLER                         PIC X(21)
               VALUE "Totales por Fecha: ".
           03  L-IMP-FECHA-TOTAL              PIC $ZZZ9,00.
       
       01 L-IMPORTE-TOTAL.
           03  FILLER                         PIC X(1) VALUE SPACES.
           03  FILLER                         PIC X(21)
               VALUE "Totales Generales: ".
           03  L-IMP-TOTAL                    PIC $ZZZ9,00.
      
	   01  FECHA.
           03  SYS-ANIO                       PIC X(2).
           03  SYS-MES                        PIC X(2).
           03  SYS-DIA                        PIC X(2).
	  
	   01  FECHA-ALQ.
           03  SYS-ALQ-ANIO                   PIC X(4).
           03  SYS-ALQ-MES                    PIC X(2).
           03  SYS-ALQ-DIA                    PIC X(2).
	  	
       01 FECHA-ALQ-AUX.
           03  FILLER                         PIC X(1) VALUE SPACES.
           03  FILLER                         PIC X(8) VALUE SPACES.
           03  L-ALQ-DIA-AX                   PIC 9(2).
           03  FILLER                         PIC X(1) VALUE SPACES.
           03  L-ALQ-MES-AX                   PIC 9(2).
           03  FILLER                         PIC X(1) VALUE SPACES.
           03  L-ALQ-ANIO-AX                  PIC 9(4).
		   
	   01  L-CHOFER-AUX.                       
	       03  FILLER                         PIC X(7) VALUE SPACES.

	   01  ES-PRIM.
		   03  FILLER                         PIC X VALUE 'S'.
	   
      ***
      * DIVISION DEL PROGRAMA
      ***
       PROCEDURE DIVISION.
       	PROGRAMA.
       	DISPLAY "Inicio Tp1 Parte 2!".
       	PERFORM INICIO.
       	ACCEPT FECHA FROM DATE.
       	SORT ARCH-ALQ-ORD
       	ON ASCENDING KEY ALQ-ORD-FECHA, 
       					 ALQ-ORD-CHOFER,
       					 ALQ-ORD-NRO-DOC
       	INPUT PROCEDURE IS I-INPUT
       	OUTPUT PROCEDURE IS I-OUTPUT.
        
       	PERFORM FIN.
       	DISPLAY " ".
       	DISPLAY "Fin del programa!".
       	STOP RUN.
       	
      * -------------------------------------------------------
       	INICIO.
		   MOVE 000 TO CN-PAGINAS.
           OPEN I-O ALQUILERES.
           OPEN INPUT CHOFERES.
           MOVE 'O' TO PARAM-OP.
           CALL "SUBRUTINACLIENTE" USING PARAMETRO-CLIENTE.
           OPEN OUTPUT RECHAZOS.
           OPEN OUTPUT LISTADO.    		
           
      * -------------------------------------------------------
        FIN.
           CLOSE ALQUILERES.
           CLOSE RECHAZOS.
           CLOSE CHOFERES.
           MOVE 'C' TO PARAM-OP.
           CALL "SUBRUTINACLIENTE" USING PARAMETRO-CLIENTE.
           CLOSE LISTADO.  
           
       BUSCAR-DATOS-CLIENTE-POR-NRO.
           MOVE "P" TO PARAM-OP.
      *    NO TENGO EL CODIGO DEL CLIENTE EN NINGUN LADO.PREGUNTAR.
      *	   MOVE VTAS-IDENT-CLI TO PARAM-NUMERO-CLIENTE.
           CALL "SUBRUTINACLIENTE" USING PARAMETRO-CLIENTE.
           PERFORM ASIGNAR-DATOS-CLIENTE.
           
       BUSCAR-DATOS-CLIENTE-POR-DOC.
           MOVE "A" TO PARAM-OP.
           MOVE ALQ-ORD-NRO-DOC TO PARAM-DOCUMENTO-CLIENTE.
           CALL "SUBRUTINACLIENTE" USING PARAMETRO-CLIENTE.
           PERFORM ASIGNAR-DATOS-CLIENTE.
           
       ASIGNAR-DATOS-CLIENTE. 
           MOVE RESULTADO-CLI-NRO TO WS-CLIENTE-NRO.          
           MOVE RESULTADO-CLI-FEC-ALTA TO WS-CLIENTE-FEC-ALTA.
           MOVE RESULTADO-CLI-TELEFONO TO WS-CLIENTE-TELEFONO.
           MOVE RESULTADO-CLI-DIRECCION TO WS-CLIENTE-DIRECCION.
		   MOVE RESULTADO-CLI-DOC TO WS-CLIENTE-DOC.
      
      *TODO:CAMBIAR NOMBRE ?
        I-INPUT.
            DISPLAY "Comienza el ingreso de datos al sort file...".
            PERFORM LEER-ALQUILERES
             THRU F-LEER-ALQUILERES.
            PERFORM UNTIL EOF-ALQUILERES = 'S'
               
              PERFORM PROCESAR-ALQUILER THRU F-PROCESAR-ALQUILER
               
              IF APROBADO = 'S' AND EOF-ALQUILERES = 'N' THEN
               
                MOVE ALQ-FECHA TO ALQ-ORD-FECHA
                MOVE ALQ-CHOFER TO ALQ-ORD-CHOFER
                MOVE ALQ-TIPO-DOC TO ALQ-ORD-TIPO-DOC
                MOVE ALQ-NRO-DOC TO ALQ-ORD-NRO-DOC  
			    MOVE 'A' TO PARAM-OP
				PERFORM BUSCAR-DATOS-CLIENTE-POR-DOC				
				MOVE WS-CLIENTE-DIRECCION 
				TO ALQ-ORD-DIRECCION
                MOVE ALQ-IMPORTE TO ALQ-ORD-IMPORTE
				DISPLAY "Alquiler aprobado"
				DISPLAY REG-ALQ-ORD
      		    RELEASE REG-ALQ-ORD
              END-IF
              
			  PERFORM LEER-ALQUILERES
                THRU F-LEER-ALQUILERES
            END-PERFORM.
        F-INPUT. EXIT.  
        
      * -------------------------------------------------------
        I-OUTPUT.
            DISPLAY " ".
            DISPLAY "Comienza la extraccion de datos del sort file...".
	  
			PERFORM IMP-ENC THRU F-IMP-ENC.
            PERFORM LEER-ALQ-ORD THRU F-LEER-ALQ-ORD.
            
			PERFORM UNTIL EOF-ALQ-ORD = 'S'
              PERFORM ESCRIBIR-LISTADO THRU F-ESCRIBIR-LISTADO
            END-PERFORM.
	        
			PERFORM IMP-TOTALES.

		F-OUTPUT. EXIT. 
      * -------------------------------------------------------
        
		ESCRIBIR-LISTADO.
		  
		  MOVE ALQ-ORD-FECHA TO FECHA-ALQ.
		  MOVE SYS-ALQ-MES TO L-ALQ-MES-FH.
		  MOVE SYS-ALQ-DIA TO L-ALQ-DIA-FH.
		  MOVE SYS-ALQ-ANIO TO L-ALQ-ANIO-FH.
		  MOVE ALQ-ORD-CHOFER TO L-CHOFER.
		  
		  MOVE ALQ-ORD-TIPO-DOC TO L-TIPO-DOC.
		  MOVE ALQ-ORD-NRO-DOC TO L-NRO-DOC.
		  MOVE ALQ-ORD-DIRECCION TO L-DIREC.		 
          MOVE IMP-POR-CHOF TO L-IMP-CHO-TOTAL.		  
		  MOVE IMP-POR-FECH TO L-IMP-FECHA-TOTAL.
		  MOVE WS-CLIENTE-NRO TO L-CLIENTE.
		  MOVE WS-CLIENTE-DIRECCION TO L-DIREC.
		  PERFORM OBTENER-TURNO THRU F-OBTENER-TURNO.
		  
		  IF FECHA-ALQ-AUX <> L-FECHA-ALQ THEN
		    IF ES-PRIM <> 'S' THEN
			 WRITE REG-LISTADO FROM L-IMPORTE-CHOFER AFTER 2 LINE
			 WRITE REG-LISTADO FROM L-IMPORTE-FECHA AFTER 1 LINE
			 WRITE REG-LISTADO FROM ' ' AFTER 1 LINE
			  MOVE 0 TO IMP-POR-CHOF
			  MOVE 0 TO IMP-POR-FECH 
			END-IF
	    	 WRITE REG-LISTADO FROM L-FECHA-ALQ AFTER 1 LINE
  			 WRITE REG-LISTADO FROM L-CHOF-TURN AFTER 1 LINE
			 WRITE REG-LISTADO FROM L-TIT-LIST AFTER 2 LINE
			 WRITE REG-LISTADO FROM L-LINEA AFTER 1 LINE
			 WRITE REG-LISTADO FROM L-DETALLE AFTER 1 LINE
			 ADD ALQ-ORD-IMPORTE TO IMP-POR-CHOF
			 ADD ALQ-ORD-IMPORTE TO IMP-POR-FECH 
		  ELSE
			IF  ALQ-ORD-CHOFER <> L-CHOFER-AUX THEN
			 WRITE REG-LISTADO FROM L-IMPORTE-CHOFER AFTER 2 LINE
			 WRITE REG-LISTADO FROM L-CHOF-TURN AFTER 2 LINE
			 WRITE REG-LISTADO FROM L-TIT-LIST AFTER 2 LINE
			 WRITE REG-LISTADO FROM L-LINEA AFTER 1 LINE
			 WRITE REG-LISTADO FROM L-DETALLE AFTER 1 LINE
			 MOVE 0 TO IMP-POR-CHOF
			ELSE
			 WRITE REG-LISTADO FROM L-DETALLE AFTER 1 LINE
			END-IF
			ADD ALQ-ORD-IMPORTE TO IMP-POR-CHOF
			ADD ALQ-ORD-IMPORTE TO IMP-POR-FECH
		  END-IF.
          
		  ADD ALQ-ORD-IMPORTE TO IMP-POR-TOT.
		  MOVE L-FECHA-ALQ TO FECHA-ALQ-AUX.
		  MOVE ALQ-ORD-CHOFER TO L-CHOFER-AUX.		  
		  MOVE 'N' TO ES-PRIM.
          PERFORM LEER-ALQ-ORD THRU F-LEER-ALQ-ORD.
        F-ESCRIBIR-LISTADO. EXIT.
          
      *-------------------------------------------------------
        PROCESAR-ALQUILER.
            DISPLAY " ".
        	DISPLAY "Procesando un alquiler...".
            MOVE 'S' TO APROBADO.
            IF ALQ-ESTADO <> 'P' THEN
                DISPLAY "El estado de este alquiler es "
                        ALQ-ESTADO END-DISPLAY
                MOVE 'N' TO APROBADO
                PERFORM IGNORAR-ALQUILER
                 THRU F-IGNORAR-ALQUILER
            ELSE
                DISPLAY "Chequeando el chofer "
                 ALQ-CHOFER " para la fecha "
                 ALQ-FECHA END-DISPLAY
            	MOVE "?" TO CHOFER-DISPONIBLE
      
      			MOVE ALQ-CHOFER TO CHOF-NRO-LEGAJO
      			START CHOFERES KEY IS EQUAL TO CHOF-NRO-LEGAJO
            	
            	PERFORM CHEQUEAR-CHOFER
            	 UNTIL CHOFER-DISPONIBLE <> "?"
            	
            	IF CHOFER-DISPONIBLE = "N" THEN
            	    DISPLAY "El chofer no esta disponible"
            	    PERFORM RECHAZAR-ALQUILER
            	ELSE IF CHOFER-DISPONIBLE = "S" THEN
            	    DISPLAY "El chofer esta disponible!"
            	    PERFORM ACEPTAR-ALQUILER
            	END-IF
            END-IF.            
        F-PROCESAR-ALQUILER. EXIT.
      
      * -------------------------------------------------------
        CHEQUEAR-CHOFER.
            READ CHOFERES NEXT
        	DISPLAY "Estoy parado en el record del chofer "
        	        CHOF-NRO-LEGAJO
        	        " que trabaja desde "
        	        CHOF-FECHA-DESDE
        	        " hasta " CHOF-FECHA-HASTA END-DISPLAY.
            IF ((ALQ-CHOFER <> CHOF-NRO-LEGAJO) 
             OR (CHOF-FECHA-DESDE > ALQ-FECHA)) THEN
                MOVE "N" TO CHOFER-DISPONIBLE
            ELSE
                IF CHOF-FECHA-HASTA > ALQ-FECHA THEN
                    MOVE "S" TO CHOFER-DISPONIBLE
                END-IF
            END-IF.
            
            IF FS-CHOFERES = "10" THEN
            	MOVE "N" TO CHOFER-DISPONIBLE
            END-IF.
        F-CHEQUEAR-CHOFER. EXIT.
        
      * -------------------------------------------------------
        ACEPTAR-ALQUILER.
            DISPLAY "Alquiler aceptado!" END-DISPLAY.
            MOVE "T" TO ALQ-ESTADO.
            REWRITE REG-ALQUILER.
        F-ACEPTAR-ALQUILER. EXIT.
        
      * -------------------------------------------------------
        RECHAZAR-ALQUILER.
            DISPLAY "Alquiler rechazado!" END-DISPLAY.
            MOVE ALQ-PATENTE TO RECH-PATENTE.
            MOVE ALQ-FECHA TO RECH-FECHA.
            MOVE ALQ-TIPO-DOC TO RECH-SOL-TIPO-DOC.
            MOVE ALQ-NRO-DOC TO RECH-NRO-DOC.
            MOVE ALQ-IMPORTE TO RECH-IMPORTE.
      		WRITE REG-RECHAZO.
      		
      		IF FS-RECHAZOS = "00" THEN
      		    DISPLAY "Rechazo guardado a disco con exito!".
      		MOVE 'N' TO APROBADO.
      		
      		MOVE "R" TO ALQ-ESTADO.
            REWRITE REG-ALQUILER.
        F-RECHAZAR-ALQUILER. EXIT.
      * -------------------------------------------------------
        IGNORAR-ALQUILER.
            DISPLAY "Alquiler omitido!" END-DISPLAY.
        F-IGNORAR-ALQUILER. EXIT.
        
      * -------------------------------------------------------
         LEER-ALQUILERES.
           IF EOF-ALQUILERES = "N" THEN
               READ ALQUILERES AT END MOVE "S" TO EOF-ALQUILERES.
           IF EOF-ALQUILERES = "S" THEN
               MOVE HIGH-VALUE TO CLAVE-ALQUILER.
         F-LEER-ALQUILERES. EXIT.
      
         LEER-CHOFERES.
           IF EOF-CHOFERES = "N" THEN
               READ CHOFERES AT END MOVE "S" TO EOF-CHOFERES.
           IF EOF-CHOFERES = "S" THEN
               MOVE HIGH-VALUE TO CLAVE-CHOFER.
         F-LEER-CHOFERES. EXIT.
      
         LEER-CLIENTES.
           IF EOF-CLIENTES = "N" THEN
               READ CLIENTES AT END MOVE "S" TO EOF-CLIENTES.
           IF EOF-CLIENTES = "S" THEN
               MOVE HIGH-VALUE TO CLAVE-CLIENTE-PRI.
      
         LEER-ALQ-ORD.
           IF EOF-ALQ-ORD = "N" THEN
               RETURN ARCH-ALQ-ORD AT END MOVE "S" TO EOF-ALQ-ORD.
               PERFORM BUSCAR-DATOS-CLIENTE-POR-DOC.
         F-LEER-ALQ-ORD. EXIT.
	 	 
		 IMP-ENC.
		   MOVE CN-PAGINAS TO L-NRO-HOJA.
		   MOVE SYS-MES TO L-MES-FH.
		   MOVE SYS-DIA TO L-DIA-FH.
		   MOVE SYS-ANIO TO L-ANIO-FH.
		   WRITE REG-LISTADO FROM L-FECHA-HOJA.
		   WRITE REG-LISTADO FROM L-DESCRIPCION AFTER 1 LINE.
		   ADD 1 TO CN-PAGINAS.
		 F-IMP-ENC. EXIT.
		 
		 OBTENER-TURNO.
		  IF CHOF-TURNO = 'M' THEN
		   MOVE 'Manana' TO L-TURNO
		  END-IF.
		  IF CHOF-TURNO = 'T' THEN
		   MOVE 'Tarde' TO L-TURNO
		  END-IF.
		  IF CHOF-TURNO = 'N' THEN
		   MOVE 'Noche' TO L-TURNO
		  END-IF.
		 F-OBTENER-TURNO. EXIT.
		 
		 IMP-TOTALES.
		   DISPLAY " ".
		   MOVE IMP-POR-CHOF TO L-IMP-CHO-TOTAL.		  
		   MOVE IMP-POR-FECH TO L-IMP-FECHA-TOTAL.
		   MOVE IMP-POR-TOT TO L-IMP-TOTAL.
		   WRITE REG-LISTADO FROM L-IMPORTE-CHOFER AFTER 2 LINE.
		   WRITE REG-LISTADO FROM L-IMPORTE-FECHA AFTER 1 LINE.
		   WRITE REG-LISTADO FROM "--------------" AFTER 1 LINE.
		   WRITE REG-LISTADO FROM "----------------------".
		   WRITE REG-LISTADO FROM L-IMPORTE-TOTAL.
		 F-IMP-TOTALES. EXIT.
